inherited fmServicesSelect: TfmServicesSelect
  Caption = #1042#1099#1073#1086#1088' '#1091#1089#1083#1091#1075' '#1080' '#1087#1083#1072#1090#1077#1083#1100#1097#1080#1082#1086#1074
  ClientHeight = 468
  ClientWidth = 480
  OnShow = FormShow
  ExplicitWidth = 488
  ExplicitHeight = 502
  PixelsPerInch = 96
  TextHeight = 13
  inherited sbBottom: TStatusBar
    Top = 441
    Width = 480
    ExplicitTop = 441
    ExplicitWidth = 480
  end
  inherited Panel1: TPanel
    Top = 396
    Width = 480
    ExplicitTop = 396
    ExplicitWidth = 480
  end
  object dbg3: TcxGrid [2]
    Left = 0
    Top = 41
    Width = 480
    Height = 355
    Align = alClient
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = []
    ParentFont = False
    TabOrder = 2
    LookAndFeel.Kind = lfStandard
    ExplicitTop = 64
    ExplicitHeight = 332
    object dbg3DBTableView1: TcxGridDBTableView
      NavigatorButtons.ConfirmDelete = False
      NavigatorButtons.First.Visible = True
      NavigatorButtons.PriorPage.Visible = True
      NavigatorButtons.Prior.Visible = True
      NavigatorButtons.Next.Visible = True
      NavigatorButtons.NextPage.Visible = True
      NavigatorButtons.Last.Visible = True
      NavigatorButtons.Insert.Visible = False
      NavigatorButtons.Append.Visible = False
      NavigatorButtons.Delete.Visible = False
      NavigatorButtons.Edit.Visible = False
      NavigatorButtons.Post.Visible = False
      NavigatorButtons.Cancel.Visible = False
      NavigatorButtons.Refresh.Visible = False
      NavigatorButtons.SaveBookmark.Visible = False
      NavigatorButtons.GotoBookmark.Visible = False
      NavigatorButtons.Filter.Visible = False
      DataController.DataModeController.GridMode = True
      DataController.DataSource = dlgDS
      DataController.Summary.DefaultGroupSummaryItems = <>
      DataController.Summary.FooterSummaryItems = <>
      DataController.Summary.SummaryGroups = <>
      OptionsBehavior.CellHints = True
      OptionsBehavior.IncSearch = True
      OptionsData.Deleting = False
      OptionsData.Inserting = False
      OptionsView.Navigator = True
      OptionsView.NavigatorOffset = 10
      OptionsView.NoDataToDisplayInfoText = '<'#1053#1077#1090' '#1076#1072#1085#1085#1099#1093'>'
      OptionsView.ColumnAutoWidth = True
      OptionsView.GroupByBox = False
      OptionsView.Indicator = True
      OptionsView.ShowColumnFilterButtons = sfbAlways
      Styles.IncSearch = DMInv.cxKrasniyText
      Styles.Selection = DMInv.cxJoltiyFon
      Styles.Header = DMInv.cxSiniyText
      object dbg3DBTableView1SVNAME: TcxGridDBColumn
        DataBinding.FieldName = 'SVNAME'
        Options.Editing = False
        Options.Filtering = False
        Options.Sorting = False
        Width = 306
      end
      object dbg3DBTableView1ISSELECT: TcxGridDBColumn
        DataBinding.FieldName = 'ISSELECT'
        PropertiesClassName = 'TcxCheckBoxProperties'
        Properties.ImmediatePost = True
        Properties.ValueChecked = '1'
        Properties.ValueUnchecked = '0'
        Options.Filtering = False
        Options.Sorting = False
        Width = 38
        IsCaptionAssigned = True
      end
      object dbg3DBTableView1SVPAYER: TcxGridDBColumn
        DataBinding.FieldName = 'SVPAYER'
        PropertiesClassName = 'TcxLookupComboBoxProperties'
        Properties.DropDownListStyle = lsFixedList
        Properties.ImmediatePost = True
        Properties.KeyFieldNames = 'SDID'
        Properties.ListColumns = <
          item
            FieldName = 'SDNAME'
          end>
        Properties.ListOptions.ShowHeader = False
        Properties.ListSource = dsPayers
        Options.Filtering = False
        Options.Sorting = False
        Width = 103
      end
    end
    object dbg3Level1: TcxGridLevel
      GridView = dbg3DBTableView1
    end
  end
  object Panel2: TPanel [3]
    Left = 0
    Top = 0
    Width = 480
    Height = 41
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 3
    object rgPayer: TRadioGroup
      Left = 0
      Top = 0
      Width = 393
      Height = 41
      Caption = #1042#1089#1077' '#1091#1089#1083#1091#1075#1080' '#1086#1087#1083#1072#1095#1080#1074#1072#1077#1090'...'
      Columns = 3
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = [fsBold]
      Items.Strings = (
        #1054#1090#1087#1088#1072#1074#1080#1090#1077#1083#1100
        #1055#1086#1083#1091#1095#1072#1090#1077#1083#1100
        '3-'#1077' '#1083#1080#1094#1086)
      ParentFont = False
      TabOrder = 0
    end
    object Button1: TButton
      Left = 399
      Top = 8
      Width = 73
      Height = 33
      Caption = #1055#1088#1086#1089#1090#1072#1074#1080#1090#1100
      TabOrder = 1
      OnClick = Button1Click
    end
  end
  inherited dlgDS: TDataSource
    DataSet = qServices
    OnDataChange = dlgDSDataChange
    Left = 280
    Top = 264
  end
  object qServices: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    CachedUpdates = True
    SQL.Strings = (
      'SELECT S.SVID, S.SVNAME, 0 ISSELECT, 0 SVPAYER'
      '  FROM SERVICES S'
      ' ORDER BY S.SVID')
    UpdateObject = quServices
    Left = 312
    Top = 264
    object qServicesSVID: TIntegerField
      FieldName = 'SVID'
      Origin = '"SERVICES"."SVID"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object qServicesSVNAME: TIBStringField
      DisplayLabel = #1059#1089#1083#1091#1075#1072
      FieldName = 'SVNAME'
      Origin = '"SERVICES"."SVNAME"'
      Size = 40
    end
    object qServicesISSELECT: TIntegerField
      DisplayLabel = '?'
      FieldName = 'ISSELECT'
      ProviderFlags = []
    end
    object qServicesSVPAYER: TIntegerField
      DisplayLabel = #1055#1083#1072#1090#1077#1083#1100#1097#1080#1082
      FieldName = 'SVPAYER'
      ProviderFlags = []
    end
  end
  object qPayers: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    SQL.Strings = (
      'SELECT S.SDID, S.SDNAME'
      '  FROM SYS_DIC S'
      ' WHERE S.SDPARID = 16'
      ' ORDER BY S.SDID')
    Left = 48
    Top = 264
  end
  object dsPayers: TDataSource
    DataSet = qPayers
    Left = 24
    Top = 264
  end
  object quServices: TIBUpdateSQL
    RefreshSQL.Strings = (
      'null;')
    ModifySQL.Strings = (
      'null;')
    InsertSQL.Strings = (
      'null;')
    DeleteSQL.Strings = (
      'null;')
    Left = 344
    Top = 264
  end
end
